Option Explicit
Sub F_Sample001()
    Dim myURL    As String
    Dim myWebTbl As String
    myURL = "URL;http://www.sbpnet.jp"               'NURL
    'wŪJ
    myWebTbl = "28,33,34"
    Worksheets.Add                                  'sWu@
    With ActiveSheet.QueryTables.Add(Connection:=myURL _
         , Destination:=Range("A1"))                    'ŪJؼxs
        .WebFormatting = xlWebFormattingNone           'rHTML
        .WebTables = myWebTbl
        .Refresh
    End With
End Sub

